<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.bra</name>
<id>-1</id>
<cardCount>13</cardCount>
<cardID>2944</cardID>
<listID>2531</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Sound Library 1.01-- Saturn Systems-- 101 W. 2nd St., #206-- Duluth, MN 55802-- (218) 726-1166---- This was written for Wayzata Technology Inc. © 1991-- All right Reserved-- 11/18/91--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on StartupAddColor install,8AddColor enableend Startup------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on closeStackAddColor remove-- Called upon HOME or OPEN STACKreset menuBar -- Don't display CATEGORIES menupass closeStackend closeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on openStackAddColor installcatMenu -- Display CATEGORIES menupass openStackend openStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on suspendStack -- Called upon HELPreset menuBar -- Don't display CATEGORIES menuend suspendStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on resumeStack -- Called upon return from HELPcatMenu -- Re-display CATEGORIES menuend resumeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on doMenu item, menu-- Need to trap for QUIT HYPERCARD to remove the credits and logo PICTs.global quittingif item is "Quit HyperCard" thenput true into quittingend ifpass doMenuend doMenu------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on catMenu-- Display CATEGORIES menuif there is a menu "Categories" then exit catMenucreate menu "Categories"put catMenuItems() into menu "Categories"set the menuMessage of menuItem "Animals" of Menu "categories" to go to Card "Animal Sounds"set the menuMessage of menuItem "Short Misc" of Menu "categories" to go to Card "Beep Sounds"set the menuMessage of menuItem "Household" of Menu "categories" to go to Card "Household Sounds"set the menuMessage of menuItem "Special Effects" of Menu "categories" to go to Card "Miscellaneous Special Effects"set the menuMessage of menuItem "Instruments" of Menu "categories" to go to Card "Musical Instruments"set the menuMessage of menuItem "Musical Intros" of Menu "categories" to go to Card "Musical Intros"set the menuMessage of menuItem "People" of Menu "categories" to go to Card "People Sounds"set the menuMessage of menuItem "Transportation" of Menu "categories" to go to Card "Planes, Trains, and Automobiles"set the menuMessage of menuItem "Phrases" of Menu "categories" to go to Card "Short Phrases"set the menuMessage of menuItem "Nature" of Menu "categories" to go to Card "Sounds of Nature"end catMenu------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------function catMenuItemsreturn ¬"Animals" & return & ¬"Short Misc" & return & ¬"Household" & return & ¬"Special Effects" & return & ¬"Instruments" & return & ¬"Musical Intros" & return & ¬"People" & return & ¬"Transportation" & return & ¬"Phrases" & return & ¬"Nature" & returnend catMenuItems------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on OsErr err-- For displaying error messages from operating system error codes returned by CopyFile()-- Translate the most common onesif err > 0 then -- XFCN conventionput "Parameter error with function" into errstrelse if err is -59 thenput "Problem during rename" into errstrelse if err is -54 thenput "Attempt to open locked file for writing" into errstrelse if err is -46 thenput "Volume locked by software" into errstrelse if err is -45 thenput "File locked" into errstrelse if err is -44 thenput "Volume locked by hardware" into errstrelse if err is -43 thenput "File not found" into errstrelse if err is -37 thenput "Bad volume or file name" into errstrelse if err is -36 thenput "I/O error" into errstrelse if err is -35 thenput "No such volume" into errstrelse if err is -34 thenput "Disk is full" into errstrelse if err is -49 thenput "File already open for writing" into errstrelseput "Failed with error" && err into errstrend ifanswer errstr with "OK"end OsErr------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on findGlobalString-- Find string within global scope of the stack. When the string is found, the card in which-- it resides is opened, then a dialog is presented to find again. The domain for this search-- is the field "Displayed_Sounds" in all categories. The search string is retained as a-- global variable; it will be presented as the default for the next FIND.global findStringAsk "Please enter a word/phrase to find: " with findStringif the result is not "Cancel" thenput it into findStringPut "Find Next" into ansFindAgainrepeat while ansFindAgain is "Find Next"if findString is not Empty thenfind string findString in BG field "Displayed_Sounds"if the result is "not found" thenAnswer "'"&findString&"' was not Found" With "OK"put it into ansFindAgain -- OK forces Failure of Loopelseput the foundLine into myfoundLineput word 2 of myfoundLine into lineNumput item 1 of line lineNum of field Displayed_Sounds into foundNameAnswer "Found '"&foundName&"'."&return&&return&"Find '"&findString&"' Again?" With¬"Done" or "Find Next"put it into ansFindAgain -- Done forces Failure of Loopend ifelseput "null" into ansFindAgainend ifend repeatend ifend findGlobalString------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on openCardSend colorMe to this cardpass openCardend openCardon closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,0end colorMe</script>
